Top 10k strings from Zip Spectrum BASIC Compiler (1984)(Spectral Systems).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /

Back to the directory listing

   3 errors=errors+1
   3 L(z)=opbrt
   3 +linetab-2
   2 s>capital Z
   2 s<capital A
   2 oplast=false:
   2 find line:
   2 ZIP LIB   
   1 xref=xref-4
   1 xref=top-2
   1 vars=bottom+1537
   1 variable=1
   1 u=(top-linetab)/4
   1 tsav=s2-65
   1 tp=linetab:
   1 tp=linetab
   1 too big=6715
   1 tables=6700
   1 t=prog-vars-1
   1 t=bottom+c*2
   1 t=bottom+134
   1 t=assvar-65
   1 t1=vars+t*8
   1 t(s-keyword)=0
   1 store=7690
   1 store (var. name in s)
   1 sptr=nptr+1
   1 source=23635
   1 small z=122
   1 small a=97
   1 skip st=7970
   1 sep=false:
   1 scroll=23692
   1 scroll,255
   1 s=variable:
   1 s=variable
   1 s=overflow:
   1 s=overflow
   1 s=lbracket
   1 s2>capital Z
   1 s2=uminus:
   1 s2=rbracket:
   1 s2=lbracket
   1 s2<capital A
   1 return=254
   1 request=6900
   1 rbracket=41
   1 random=249
   1 q=linetab-2
   1 prog=prog+a(i)*2
   1 prog=arrays:
   1 prog [";prog;"]":
   1 prio=P(s2)
   1 prio=P(L(z)):
   1 prio<P(s2)
   1 pre colon=7660
   1 pc>prog+36
   1 patch=6795
   1 pass2=7000
   1 pass1=6500
   1 parsestr=7910
   1 p2error=7950
   1 p1error=6125
   1 overflow=15
   1 oplast=true
   1 oldt=oldt/2
   1 num=sptr-i:
   1 nextst=7050
   1 nextln=7030
   1 next1=6555
   1 n,n,n,n,n,n,y,y,y,n,n,n,n,n,n,n,n,n,n,n,n,y,n,y,y,y,y,y,n,y,y,y,y,y,y,y,y,n,y,y,y,n,n,n,n,n,n,n,n,n,n,n,y,y,y,y,y,y,y,n,n,y,n,n,n,n,y,n,y,y,y,y,y,y,n,n,y,y,y,y,y,y,n,n,y,y,y,y,y,y,n
   1 maths=7785
   1 mark start
   1 lower case
   1 linetab=top:
   1 linetab=top-4
   1 lines=lines+1
   1 lbracket=40
   1 last>capital Z
   1 last<capital A
   1 keyword=164
   1 j=bottom+c*2
   1 inverse=221
   1 find line=6745
   1 fetch=6015
   1 exppush=7752
   1 exppop=7770
   1 expop=7822
   1 expnexts=7900
   1 expnext=7800
   1 expdoop=7857
   1 dump (template No. c)
   1 digit 9=57
   1 digit 0=48
   1 commas=commas-1
   1 commas=commas+1
   1 capital Z=90
   1 capital Z)
   1 capital A=65
   1 c=assmod-189
   1 c=O(L(z)):
   1 bugs=number:
   1 bugs=number
   1 bugs=input:
   1 bugs=input
   1 bugs=index:
   1 bugs=index
   1 bugs=false:
   1 bugs=false
   1 bright=220
   1 bottom=53247
   1 border=231
   1 atcolon=7670
   1 assvar=s-65
   1 assmod=s-197
   1 arrays=vars+26
   1 addln=6725
   1 a(assvar+1
   1 ZIP OPTIMISATION MODULE
   1 ZIP       
   1 Unrecognised operator in s2
   1 Unary plus
   1 Trap BREAK
   1 Token types
   1 System variables
   1 Subscript is a new expression
   1 Store code routine 'c'
   1 Spectrum BASIC compiler
   1 Search fast
   1 Scan expression (maths)
   1 S(z)=tsav:
   1 S N Goodwin & J A Smith
   1 Put num on Z80 stack
   1 Put address of line t at pc-1 (request)
   1 Perform negation at once
   1 Patch for HIRES
   1 PASS 2 Error (p2error)
   1 PASS 1 Error (p1error)
   1 Oddly, TAB requires a 2 byte parameter!
   1 Number found
   1 New line found
   1 Maths stacks
   1 Last revision: 02/04/84
   1 L(z)=uminus
   1 Init & Fetch (source)
   1 Identify operators: ()*+,-./<=> etc.
   1 Handle INK, PAPER etc alike
   1 Generate implicit STEP 1
   1 GO TO 5000
   1 Function precedences & opcodes
   1 Find line n (return T pointing to its address)
   1 Evaluate DIM
   1 End with 'OK' message
   1 End of sub-expression
   1 End expression with ')'
   1 Echo the most recent line reference
   1 Don't operate yet
   1 Doke - put t at address i
   1 Deek - t=contents of address t
   1 Correct line references (patch)
   1 Correct forward jumps
   1 Const. op?
   1 Check print item (itm)
   1 CLEAR & CLS
   1 Attempt to optimise the code
   1 Array bases
   1 Analyse variable name
   1 Alter common code pairs
   1 Adjust library CLEAR code to initialise arrays (if any)
   1 Add an entry to line address table (addln)
   1 ADD/SUB number 1 to 6
   1 ;pc-prog-36
   1 ;'lines;" LINES scanned: ";errors;" ERRORS.":
   1 ;'"Faulty DIM statement.":
   1 ;"ZIP HAS FINISHED    (";pc-prog-36
   1 ;"ZIP FOUND ";errors;" ERRORS.":
   1 ;"SPECTRUM BASIC COMPILER  PASS 1.":
   1 ;"NOW LOADING"
   1 ;"LOADING OK":
   1 ;"Issue 1.3"
   1 ;"Insufficient memory.":
   1 ;"COMPILING LINE      (0    bytes)"
   1 ;"CODE GENERATION ERROR ";C:
   1 1984SNG&JAS|
   1 ,,,"Run:  
   1 +(s=gosub):
   1 **** Z80 CODE GENERATION
   1 **** SYNTAX PARSER (pass2)
   1 **** PASS1 Allocate RAM
   1 **** MANIFEST CONSTANTS
   1 **** MAIN PROGRAM
   1 **** LEXICAL ANALYSIS
   1 **** INITIALISATION
   1 **** EXPRESSION HANDLER
   1 **** DEEK and DOKE
   1 **** CROSS REFERENCE ROUTINES
   1 **** BUILD RAM TABLES
   1 **** BASIC LABELS
   1 *(s=clear):
   1 )=a(assvar+2
   1 );"() WAS NOT DIMENSIONED":
   1 (nptr)=quote:
   1 (assvar+65
   1 '"When ready 
   1 "WRONG INPUT FORMAT":
   1 "Variable name";
   1 "TOO COMPLEX":
   1 "Strings";
   1 "Streams";
   1 "NOT UNDERSTOOD"
   1 "NOT ALLOWED":
   1 "Load library.":
   1 "Decimal values & integers beyond+/-65535";
   1 "CALCULATION ";:
   1 ";bottom;",";pc-bottom+2
   1 " not allowed.":
   1  to compile"
   1